home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_typename.edge < prev    next >
Text File  |  1994-11-17  |  534b  |  23 lines
  1. /*
  2. ** $VER: Menu_TypeName.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Type the path and name of a selected file
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* what is the current file's name and path */
  12. getenvvar _fe_name
  13. daname=result
  14. getenvvar _fe_path
  15. dapath=result
  16.  
  17. /* ask the user for a filename to insert */
  18. requestfile title """Select Filename To Insert...""" path """"dapath"""" file """"daname"""" getdir
  19.  
  20. /* if the user is really serious then type in the name */
  21. if RC = 0 then text """"result""""
  22.  
  23.